﻿Public Class CLS_Ejecucion_Preguntas

    Public Function GetRespuesta(ByRef Rp As DotNetResponse.SQLPersistence, ByVal P_PREGUNTA As Decimal, ByVal k_seccion As Decimal)

        Dim Rpexec As New DotNetResponse.SQLPersistence
        Rpexec.AddParametro(P_PREGUNTA)
        Rpexec.AddParametro(k_seccion)

        Rpexec.StoredProcedure = "SP_Get_Preguntas"

        Dim Exec As New DotNetDal.SQLPersistence(False, "cnn", DotNetDal.SQLPersistence.Provider.SQLCLIENT)
        Exec.ExecuteDataTable(Rpexec)
        Exec.Commit()
        Exec.Dispose()

        Rp.DtTable = Rpexec.DtTable
        Rp.TieneDatos = Rpexec.TieneDatos
        Rp.Errores = Rpexec.Errores
        Rp.MensajeError = Rpexec.MensajeError




    End Function

End Class
